home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Atari Mega Archive 1
/
Atari Mega Archive - Volume 1.iso
/
language
/
clisp_c.zoo
/
macros3.fas
< prev
next >
Wrap
Text File
|
1993-06-05
|
6KB
|
101 lines
(SYSTEM::VERSION '(SYSTEM::CLISP2 14. LISP:T 210292.))
#Y(#:TOP-LEVEL-FORM-1 #13Y(00 00 00 00 00 01 D4 36 02 30 07 19 01) "LISP")
#Y(#:TOP-LEVEL-FORM-2 #13Y(00 00 00 00 00 01 D4 36 01 2F FF 19 01)
(ETHE LETF LETF*)
)
#Y(#:TOP-LEVEL-FORM-3 #13Y(00 00 00 00 00 01 D4 36 02 30 07 19 01) "SYSTEM")
#Y(#:TOP-LEVEL-FORM-4
#18Y(00 00 00 00 00 01 D4 2D 01 D4 D6 C1 72 30 96 BE 19 01) ETHE
REMOVE-OLD-DEFINITIONS MACRO
#Y(ETHE
#76Y(00 01 00 01 00 08 AA 6A 63 D4 87 01 2C 39 94 54 70 95 54 54 70 36 01
6A A4 D6 AB D7 AB D8 AE 73 02 73 02 73 01 D9 DA AE DB B2 73 02 73 03
DC AF 73 02 DD DE DB B3 73 02 B2 DB B6 73 02 73 05 73 04 73 03 59 03
19 06 AA 2D 01 19 03
)
3. MACRO-CALL-ERROR THE LET MULTIPLE-VALUE-LIST IF %THE QUOTE VALUES-LIST
ERROR
"The form ~S yielded ~:[no values~;~:*~{~S~^ ; ~}~] ,~@
that's not of type ~S."
) )
#Y(#:TOP-LEVEL-FORM-5
#18Y(00 00 00 00 00 01 D4 2D 01 D4 D6 C1 72 30 96 BE 19 01) LETF*
REMOVE-OLD-DEFINITIONS MACRO
#Y(LETF*
#55Y(00 01 00 01 00 08 39 01 AA 6A 63 D4 87 01 2D 1B 94 54 70 95 54 71 A8
5B AD 2F 64 3E 02 89 00 10 00 14 AC A9 AC 2B 03 03 3B 19 08 AA 2D 01
19 03 D6 93 72 59 01 1A 6A
)
2. MACRO-CALL-ERROR DECLARE EXPAND-LETF*
) )
#Y(#:TOP-LEVEL-FORM-6 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
EXPAND-LETF* REMOVE-OLD-DEFINITIONS
#Y(EXPAND-LETF*
#372Y(00 03 00 00 00 04 95 1F 80 5E 8B 03 01 02 94 20 80 A6 94 EB 74 00
8C 06 AE AE 26 6A 3E 02 95 1F 80 B2 8B 03 23 08 80 D7 AB 2D 0B 3E
05 36 01 6A A4 D5 E0 AF AF 6B 01 17 8B 05 AC 73 02 AB B4 73 02 73
02 6B 02 21 B7 E1 E2 AD 8B 09 B1 36 03 69 D4 B5 73 03 AF 73 03 73
01 6B 02 20 6B 02 1F 5C 3C 02 19 0F D4 AC 5A 01 89 03 79 D5 5B AC
AC 6B 02 20 6B 02 1F 5C 3C 02 19 04 7E 02 01 94 54 53 EA 93 1F 14
8B 01 24 02 0F A9 6A 63 24 03 09 93 54 53 EB D8 A9 59 02 EA 93 1F
FF 7A 8B 01 24 05 FF 74 A9 6A 63 24 06 FF 6D 93 54 54 53 EB D9 94
54 70 AA 59 03 EA 1A 60 94 54 1F 06 94 54 54 1C FF B8 DB AB 5A 01
D5 AC AC 73 02 95 54 53 72 95 54 54 1A 11 89 00 6F D5 AC AC 73 02
73 01 B1 AC 73 01 31 02 20 14 6B 02 1F 02 1A 80 82 DE 8C 04 AC B2
AD 73 01 6B 02 20 6B 03 1F 00 1A 80 70 DD AC 87 00 26 68 01 04 8C
07 1A 30 8B 00 7A 01 2D 0B 3E 05 8B 02 A9 73 02 E0 AE AE 6B 01 17
B3 2F CB 55 F3 36 01 6A A4 A8 7B 09 A8 8B 04 AC 36 03 69 D4 7B 08
16 01 A9 7B 06 16 05 92 20 4D D5 AD 6A 65 B6 DE AF 6A 65 B4 BA E1
E2 B3 6A 65 B8 73 01 31 02 20 72 B2 6A 65 6B 02 1F 73 01 6B 02 20
6B 03 1F 73 01 6B 02 20 31 02 1F 16 04 EA 02 14 3C 02 19 09
)
"LETF* code contains a dotted list, ending with ~S" LET* VALUES-LIST 2.
MULTIPLE-VALUE-LIST THE 3. "illegal syntax in LETF* binding: ~S" VALUES
#.#'SYMBOLP MULTIPLE-VALUE-BIND GET-SETF-METHOD #.#'LIST UNWIND-PROTECT
PROGN
) )
#Y(#:TOP-LEVEL-FORM-7
#18Y(00 00 00 00 00 01 D4 2D 01 D4 D6 C1 72 30 96 BE 19 01) LETF
REMOVE-OLD-DEFINITIONS MACRO
#Y(LETF
#267Y(00 01 00 01 00 08 39 01 AA 6A 63 D4 87 01 2D 1E 94 54 70 95 54 71
A8 5B AD 2F 64 3E 02 89 00 13 00 14 5B AD 2D 03 3E 04 AB 78 65 03
1A 2B AA 2D 01 19 03 D6 93 72 59 01 1A 67 AB 5B 1A 80 95 8B 00 99
53 54 70 73 02 7B 07 AA AE 36 06 C2 EC C3 EB DA 78 6D 05 7A 06 16
03 95 1F 80 7D 95 53 70 A8 86 2D 06 A8 30 9E 51 1B 50 16 01 1C 80
6B 1A 68 DB DC AD AC 31 02 20 72 AC 6B 02 1F 59 01 EB 75 00 8A 04
80 62 DD AD B1 AC 6B 02 20 6B 02 1F 59 01 EB 75 00 8A 06 80 53 DE
AF B1 AC 6B 02 20 6B 02 1F 59 01 EB 75 00 8A 05 80 44 DF AE B1 AC
6B 02 20 6B 02 1F 59 01 EB 75 00 8A 00 35 1A 36 DC 94 1A 80 43 93
53 19 0F 7E 01 00 54 70 95 21 FF 6D 7A 01 A9 84 B6 71 16 03 AB 78
65 03 AF 5B 89 03 FF 8D 89 04 FF 9E 89 06 FF AD 89 05 FF BC 89 00
03 8A 07 4A 8A 07 4C 8A 00 06 93 53 70 24 07 43 E0 B0 AB 31 02 20
55 19 0F
)
2. MACRO-CALL-ERROR DECLARE EXPAND-LETF #.#'SECOND #.#'EQ 1.
UNWIND-PROTECT PROGN LET* LET LETF* LOCALLY
) )
#Y(#:TOP-LEVEL-FORM-8 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
EXPAND-LETF REMOVE-OLD-DEFINITIONS
#Y(EXPAND-LETF
#331Y(00 01 00 00 00 02 93 1F 80 4F 8B 01 01 02 94 20 80 8E 94 EB 74 00
8C 04 26 6C 3E 04 97 1F 80 8E 8B 05 23 07 80 CE AD 2D 0A 3E 05 36
01 6A A4 DD AE AE 6B 01 17 8B 04 AB 73 02 AA B5 73 02 73 02 6B 02
21 B1 AA 8B 06 AE 36 03 69 D4 9C 72 AD 9C 72 3C 04 19 0F D4 AA 5A
01 89 01 79 01 04 3C 04 19 02 7E 02 01 94 54 53 EA 93 1F 14 8B 01
24 01 0F A9 6A 63 24 02 09 93 54 53 EB D7 A9 59 02 EA 93 1F FF 92
8B 01 24 04 FF 8C A9 6A 63 24 05 FF 85 93 54 54 53 EB D8 94 54 70
AA 59 03 EA 1A 60 94 54 1F 06 94 54 54 1C FF B8 DA AB 5A 01 36 01
6A A4 A8 AE 73 02 97 72 AF AA 73 02 97 55 1A 2D 5B 8C 06 1A 0C 8B
00 36 01 6A A4 7B 02 16 01 7A 00 92 20 71 16 01 A8 77 CC 00 DB 93
72 AE 73 02 97 72 DD 8C 08 AB 6B 01 17 AD 31 02 21 14 AC AC 3C 04
19 0A DC AE 87 00 26 46 01 04 8C 09 1A 30 8B 00 7A 01 2D 0A 3E 05
8B 02 A9 73 02 DD AE AE 6B 01 17 B3 2F CB 55 F3 36 01 6A A4 A8 7B
09 A8 8B 04 AC 36 03 69 D4 7B 08 16 01 A9 7B 06 16 05 92 20 4D AC
DB 97 72 B3 73 02 9C 72 69 CB B0 AC B1 69 CB AC B1 69 CB 3C 04 19
0E
)
"LETF code contains a dotted list, ending with ~S" VALUES-LIST 2.
MULTIPLE-VALUE-LIST THE 3. "illegal syntax in LETF binding: ~S" VALUES
#.#'SYMBOLP #.#'LIST GET-SETF-METHOD
) )